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THE SCOPE OF THIS DOCUMENT is limited to a set of rough 
application notes on the Atari Computer System Interface. 
This is a preliminary document and is subject to change 
without notice. 

1. ACSI Bus 

o control signals and a bidirectional bus. 
o target does not receive a command and hold it pend¬ 
ing controller ready — an immediate DEVICE NOT READY 
error must be sent or the initiator will time out and 
assume controller nonexistent. 

o controller self test — recalibrate* ram check* rom 
checksum* etc. 

o self test always performed following reset — elim¬ 
inates need for self test command. 

o initiator could time out (duration to be determined) 
on a command and reset the target. 

o once the status byte is returned the bus is free, 
o maximum eight bus ports. 

o data transfer rate is up to 8 Mbit/sec. 


ACSI Bus Topology 


'Initiator I 


.Target 01 


ITarget 1 


IDevice ! 


'Device ! 


ITarget 71 


IDevice I .Device 
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Control and Data Signals 


i Mnemonic 

Name 

Characteristics i 

_RST 

Reset 

TTL levels, active low. 

A1 

Address 1 

TTL levels. 

_IRQ 

Interrupt Request 

TTL levels, active low, 

1 Kohm pullup on 
initiator side. 

CS 

Chip Select 

TTL levels, active low. 

R/ W 

Read/Write 

TTL 1 eve Is. 

_DRG 

Data Request 

TTL levels, active low, 

1 Kohm pullup on 
initiator side. 

ACK 

DATA 

Ac knowledge 

Data Bus (0-7) 

TTL levels, active low. 
TTL levels. 


— Initiator ACSI Port Pin Assignments — 
INITIATOR DB 19S 

1 !<-Data 0- 

2 ! <-Data 1- 

3 !<-Data 2- 

4 !<-Data 3- 

5 !<-Data 4- 

6 !<-Data 5- 

7 ! <-Data 6- 

g {<-Data 7- 

9 !-Chip Select- 

10 !<- Interrupt Request 

11 j-Ground- 

12 !-Reset- 

13 !-Ground- 

14 •- Acknowledge - 

15 !-Ground- 

16 !-A1 - 

17 |-Ground- 

18 1-Read/Write- 

19 !<- Data Request - 
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2. ACSI Compliance 
2. 1. Level 1 

o target will speak only when spoken to. 
o listen to bus during idle — no disconnect, 
o abort initiator via interrupt. 

o abort target via reset — software reset must be 
provided in initiator. 

o RESET HOLD TIME is 12 microseconds, 
o reset has highest bus priority. 

o reset cannot be asserted by a target whether active 
or inactive. 

o 100 milliseconds before initiator times out on tar¬ 
get acknowledgement. 

o CAVEAT: if an initiator prematurely issues a com¬ 

mand while the target is executing a command# then the 
results are unpredictable. 

o device driver in initiator will wait until status 
byte is returned — otherwise time out (TBD) and reset 
target. 


o 

to 

after receipt of command 
controller. 

by te» 

transaction belongs 

o 

is 

target has complete control 
returned. 

of 

bus until status byte 

o each target should have 
number. 

a 

user select controller 
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HARDWARE. 


- Command Phase - 

Data direction: FROM initiator TO target. 


A1 

IRQ 

_CS 

R/_W 

DATA 


=><- 


-VALID- 


-><= 


=><- 


-VALID- 


-><= 


Timing 


a) 

b) 

c) 


! <-a—> I <—b- 


Byte 0 


60 ns (max) 
250 ns (max) 
20 ns (max) 


->! <-c-> i 


! <-a—>! <- 


Byte 1 


-> 5 <—c—> ' 
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- Status Phase - 

Data direction: FROM target TO initiator. 


A1 


IRQ 


CS 


R/ U 


DATA 


-VALID- 


! <-a—>! <- 


->!<-c—> ! <—d—>! 


Byte 0 


Timing 

a) 50 ns (max) 

b) 150ns (max) 

c) 100 ns (max) 

d) 80 ns (max) 


SOFTWARE. 


Controller Select Byte-— 

Byte 0 !xxx -! 

I I I 
til 

- Controller Number 


Completion Status Byte 
Byte 0 !-! 
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2.2. Level 2 

o include Level 1. 

o TEST UNIT READY command is used as a poll, 
o NO ERROR is to be interpreted as controller ready, 
o DEVICE NOT READY is to be interpreted as controller 
not ready. 

SOFTWARE. 


Command Descriptor Byte 


Byte 0 


Sxxxxxxxx! 

i i i i i i i i 

» . .-Operation Code 

- Controller Number 


Command Summary Table----- 


• OpCode i 1 Command 


OxOO ! Test Unit Ready 


Error Code 
Device Number 


Device Errors 

0x00 No Error 

0x04 Device Not Ready 

Miscellaneous Errors 

0x30 Controller Self Test Failed 
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Completion Status Byte 
Byte 0 ixxxxxxxxS 
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2. 3. Level 3 

o include Level 1 and Level 2. 
HARDWARE. 


- Data Out Phase - 

Data direction: FROM initiator TO target. 


A1 


DRQ 



/ 


\ 


_ACK 

DATA 


\ _ / 

I I I 

I I I 

I I I 

I • I 

X-VALID-><==== 

II II 

II II 

. <-a-> {<-b->! <-a—>! 


!<—c—>5 

Timing 

a) 60 ns (max) 

b) 250 ns (max) 

c) 240 ns (max) 

d) 240 ns (min) 
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- Data In Phase - 

Data direction: FROM target TO initiator. 

A1 . 
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SOFTWARE. 

ACSI Command Descriptor Block 


Byte 0 ixxxxxxxx! 

i * i < i i > i 
i i i i i i i i 




1 1 1 

III 

Operation Code 
Controller Number 

Byte 

1 

ixxxxxxxx! 

i i i i i i i i 
t » i i i i i i 

i i i 
• > i 

Block Address High 
Device Number 

Byte 

2 

ixxxxxxxx! 

i i i i i i i i 
i i * i > i i i 

Block Address Mid 

Byte 

3 

ixxxxxxxx! 

i i r i i i i i 
i « i i i i i i 

Block Address Low 

Byte 

4 

ixxxxxxxx! 

1 • 1 1 1 1 1 1 

1 1 1 1 • 1 I I 

Block Count 

Byte 

5 

ixxxxxxxx! 

1 1 1 1 1 1 1 1 

1 1 1 1 1 1 I 1 

Control Byte 


Command Summary Table - 


OpCode 

! Command 

1 

1 

OxOO 

! Test Unit Ready 

1 

1 

0x08 

i Read 

5 * 

OxOa 

! Write 

i * 

OxOb 

S Seek 

1 

• 

Oxla 

' Mode Sense 

1 

1 


* multisector transfer with implied seek 
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Command Errors 

0x20 Invalid Command 
0x21 Invalid Address 
0x23 Volume Overflow 
0x24 Invalid Argument 
0x25 Invalid Device Number 
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3. ACSI Initiator 


o must transfer data 
o must use ST BIOS 
Hitchhiker's Guide to 


in 16 byte increment blocks. 

system variable flock (see 
the BIOS). 


A 


— Initiator Handshake Sequence - 

o load DMA Base Address Register. 

o toggle Write/_Read to clear status (DMA Mode Control Register), 
o select DMA read or write (DMA Mode Control Register), 
o select DMA Sector Count Register (DMA Mode Control Register), 
o load DMA Sector Count Register (DMA operation trigger), 
o select controller internal command register (DMA Mode Control 
Register). 

o issue controller select byte by clearing AO to 0. 
o set AO to 1 for remaining command bytes. 

o after last command byte select controller (DMA Mode Control 
Register ). 

o DMA active until sector count is zero (DMA Status Register, 
do not poll during DMA active), 
o check DMA error status (DMA Status Register), 
o check controller status byte. 
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loadable equ 1 


* 

* 

■* 

* 

* 


ST SAS1 hard disk driver 
(01985 Atari Corp. 


*- 

* 9—Apr—1985 lmd 

* 14—Apr—1985 lmd 

* 20-Apr-1985 lmd 

* 24-Jun—1985 jwt 

* 01—Jul—1985 juit 

* 

* 22-Jul-1985 juit 

* 

* 23—Jul —1985 juit 
•* 

* 

* 

* 

■*- 


Hacked it up. "Gee* it seems to work ...” 
linked with BIOS (***FOR NOW***) 
hacked for WD controller (now# wired. . . ) 
hacked for Adaptec# new kludge board 
seems to work# add more formatting and more 
detailed error reporting 
change timing of wdc/wdl at start of command# 
added extra move, w $8a#wdl to change A1 
use a move. 1 instruction for all wdc/wdl write 
pairs since it changes A1 quickly enough that 
the (old) DMA chip does not incorrectly 
generate two chip selects 


flock 

equ 

*43 e 

hdv_init 

equ 

*4 6a 

hdv_bpb 

equ 

*472 

hdv^rw 

equ 

*476 

hdv_boot 

equ 

*47a 

hdv_mediach 

equ 

*47e 

_drvbits 

equ 

*4c2 

_dskbufp 

equ 

*4c6 

nretries 

equ 

3 


* - Installer 

.globl i_sasi 
i_sasi: bra i sasi2 


# FIFO lock variable 
i hdv_init() 

; hdv_bpb(dev) 

i hdv_rw(rw# buf# count# recno# 

; hdv_boot() 

; hdv_mediach(dev) 

; block device bitVector 
> pointer to common disk buffer 

# #retries-l 


dev) 


dc. b '@(#)ahd x vO. 04'# $0d# $0a# 0# $1A 


* 


Front End 


*+ 

* LONG hbpb(dev) - return ptr to BPB (or NULL) 

* 

* Passed: dev 4(sp).W 

* 

*— 

hbpb: 

4(sp)#d0 ; dO — devno 

o_bpb#aO #* aO -> pass-through vector 
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lea _sasi_bpb<pc)ia1 ; al —> our handler 

bra check_dev ; do it 


* LONG rw(rw> buf# counti recno, dev) 
» 

* Passed: dev $e(sp).U 

* recno $c(sp ).W 

* count $a(sp ). W 

* buf 6(sp).L 

** rw 4 (sp). W 

* 

*- 

hrw: 

move, hi $e(sp)i dO 
move. 1 o_rw# aO 
lea _sasi_rw< pc)#al 

bra check dev 


* LONG mediach(dev) 

* 

* Passed: dev 4(sp).W 

* 

*— 

hmediach: 

move, w 4<sp )* dO 

move. 1 o_mediach#aO 

lea _sasijnediach(pc)ial 


* check_dev - use handler# or pass vector through 


* 

* Passed: dO. ui = device# 

* aO -> old handler 

* al -> new handler 

* a5 -> $0000 (zero-page ptr) 

* 

* Jumps-to: (al) if dev in range for this handler 

* (aO) otherwise 

* 

■*— 

chec k_dev: 

cmp. w #2#dO # devnos match? 

bne chkd_f ; (no) 

move.1 al#aO # yes — follow success vector 

chkd_f: jmp (aO) • do it 

* - Medium level driver - 


CONFIDENTIAL 


dO =* devno 

aO -> pass-through vector 
al -> our handler 


dO = devno 

aO -> pass-through vector 
al -> our handler 
do it 
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* _sasi_init - 

initialize SASI dev 


* Passed: 

nothing 


* Returns: 

dO < 0: error 


* 

dO ==0: success 


* function performed by _hinit. . . . and the assembler won't 

* let me have 
*— 

a forward reference here 


* .glob 1 

_sasi_init 


*_sasi_ini t: equ _hinit 

*•+ 


* _sasi_bpb - return BPB for hard drive 


* Synopsis: 

LONG _sasi_bpb(dev) 


* 

* 

WORD dev; 


* Returns: 

* 

NULL/ or a pointer to the BPB buffer 

. glob 1 
_sasi_bpb: 

_sasi_bpb 


move. 1 
rts 

#thebpb< dO 


* _sasi_rui - read/write hard sectors 


* Synopsis: 

* 

_sasi_rui(rtu. buf# count/ 

recnoi dev) 

* Passed: 

dev ♦e(sp). W 


* 

recno *c(sp ).W 


* 

count $a(sp). W 


* 

buf 6< sp ). L 


* 

* 

*— 

rui 4(sp ). U 

non-zero -> write 

.globl 
_sasi_rui: 

_sasi_rui 


move, w 

#nretries.retrycnt 

setup retry counter 

sasrwl: moveq 

#0. dO 

coerce word to long* unsigned 

move, ui 

*c(sp ) # dO 

sect. L 

move, ui 

$a(sp)»d 1 

count. W 

move. 1 

6(sp)>d2 

buf. L 

move, ui 

4< sp)/d3 

rw 

clr. ui 

— (sp > 

dev = 0 

move. 1 

d2z-(sp) 

buf 

move, ui 

di> -(sp) 

count 

move. 1 

dO/-(sp) 

sect 

tst. UI 

d3 

read or write? 

bne 

sasrui3 

(write) 

bsr 

_hread 

read sectors 

bra 

sasru2 


sasrui3: bsr 

_h u»r i t e 

CDNFI 

» write sectors 

DENTIAL 
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sasrw2: 

add. w 

#12/ sp 

; (cleanup stack) 


tst. 1 

dO 

; errors? 


beq 

sasrwr 

i no — success 


subq. 

ui #1» retrycnt 

j drop retry count and retry 


bp 1 

sasrul 


sasrwr: 

rts 






* _sasi_mediach 

- see if hard disk media has changed (it never does) 

* Synopsis: 

_sasi_mediach(dev) 

* 

WORD dev. 



* Returns: 

OL 

* 




. globl 

_sasi_mediach 

_sasi_mediach: 


clr. 1 

dO 

rts 



*+ 




* BPB for 10MB 

drive 



» Approximate 
* 

only. Tweak me. 



thebpb: dc.w 

512 

#bytes/sector 


dc. w 

2 

ttsectors/cluster 


dc. w 

1024 

#bytes/cluster 


dc. w 

16 

rdlen (256 root files) (in 

sectors) 

dc. w 

41 

FATsiz (10300 FAT entries) 

(sectors) 

dc. w 

42 

2nd FAT start 


dc. w 

99 

data start (in sectors) 


dc. w 

10300 

♦dusters (approximate here) 

CL 

n 

E 

1 

flags (16-bit FATs) 



* -Law-1 eve1 driver- 

* -Globals 

flock equ $43e ; FIFO lock variable 

_hz_200 equ $4ba j 200hz system ticker 

* - Hardware: 

uidc equ $ff8604 

uid 1 equ $ff8606 

wdcwdl equ wdc ; used for long writes 

dmahi equ $ff8609 

dmamid equ dmahi+2 
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dma 1 oui 


equ dmamid+2 


gpip 


equ $fffa01 


-»■- -— 

T unab1 e : 




1 timeout 

equ 

$80000 

. long - timeout 

stimeout 

equ 

$80000 

; short-timeout 

++ 





* LONG 

_qd one() 

- Wait for 

operation complete 

* Passed: 

■£> 

nothing 



* Returns: 

EQ: no timeout 


* 


MI: timeout 

condition 


* Uses: 


DO 



_qd one: 






move. 1 

#ltimeout. tocount 


qd 1: 

subq. 1 

#1,tocount 


» drop timeout count 


bmi 

qdq 


i (i give up. return NE ) 


move, b 

gpip* dO 


; interrupt? 


and b 

#*20.dO 




bne 

qd 1 


i (not yet) 


moveq 

#0, dO 


i return EQ (no timeout) 

qdq: 

r t s 









* WORD 

_endcmd() 



* Wa i t 

for end 

of SASI command 


* Passed: 

dO value to 

be written 

to wd 1 

* Returns: 

EQ: success 

(error code 

in DO. W) 

* 


MI: timeout 



* 


NE: failure 

(SASI error 

code in DO W) 

* Uses: 


a. 

O 

CL 



*— 





_endcmd 

move 

dO, dl 


i preserve uid 1 value 


b sr 

_qdone 


i wait for operation complete 


bmi 

end c e 


i (timed-out. so complain) 


move, in 

d 1 . uid 1 




nop 





move, uj 

uidc . dO 


; get the result 


and. in 

#*00ff.do 


i (clean it up), if non-zero should 

en 1 ce : 

r t s 



i do a ReadSense command to learn more 






* ___h init(dev) 
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* WORD dev; 

* Initialize hard disk 

* 

* Returns: -1 if hard disk not there 

* 

. globl _sasi_init 
_sa.si_init: 

_hinit: 

pea actur ; push test unit read command block adr 

bsr _dosahdxc 

addq. 1 #4* sp 

rts 


*— 

* bread(sectno* count* buf* dev) 


* 

LONG 

sectno; 

4< sp ) 


* 

WORD 

c ount; 

8(sp ) 


* 

LONG 

buf; 

$a(sp) $b= : high* 

$c=mid* $d=low 

«* 

WORD 

dev; 

$e(sp ) 


* 

Returns: 

-1 on timeout 


* 



0 on success 


♦ 



nonzero on error 


* 







.globl 

_hread 


— 

bread: 

st 

flock 

* lock FIFO 



move 

#$88* wdl 




move. 1 

#$0008008a* wdcwdl 

; 08 wdc* 8a wdl 



move. 1 

$a(sp > *-< sp ) 

* set DMA address 



bsr 

_s e t d ma 




addq 

#4* sp 




bsr 

_setss 

* set sector and size 



bmi 

h to 



move, u #$190*wdl 
nop 

move, ui #$90*wdl 
nop 

move, ui 8< sp ) * wdc 
nop 

move, ui #$8a*wdl 
nop 

move. 1 #$00000000* uidcuid 1 

move, ui #$8a* dO 
bsr _endcmd 

hrx: bra hdone 


; write sector count to DMA chip 


* control byte 0 wdc O wdl 


; cleanup after IRQ 
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* __hiur i t e ( sec tno; count# buf# 

dev) 

* LONG sectno; 

4 ( 5 p ) 


*■ WORD count; 

8 ( sp ) 


* LONG buf; 

$a(sp ) 

$b=high# $c=mid# $d = lotu 

■* WORD dev; 

$e(sp) 


-*• 






. globl 

_hiurite 


__h lur i t e: 



5 t 

flock 

; lock FIFO 

move. 1 

$a(sp ) # -(sp ) 

; set DMA address 

b sr 

_setdma 


ad dq 

#4, sp 


move *u 

#$88,md1 


move. 1 

#$000a008a# iud cwd 1 ; Oa wdc 8a iud 1 

b sr 

__s e t s s 


bmi 

__h to 


move, <u 

#*90, u»dl 


nop 

move. tu 

#$190# iud 1 


nop 

move, iu 

nop 

8 < sp ) # iud c 

; sector count for DMA ct 

move, iu 

#*18a,ud1 


nop 



move. 1 

#$00000100# iud c iud 1 

move, u 

#$18a# dO 


b sr 

_endcmd 


hwx: bra 

_hdone 

# cleanup after IRQ 




* _iud_format - 

format WD hard 

disk 

* Passed: 

noth ing 


* Returns: 

0# or —N 


*■ Uses: 

<. . ?. . > 


* 



-W-— 



.globl 

_jud forma t 


_iud__f ormat: lea 

ac f mt# aO 

; pick up pointer to the 

c 1 r. u.» 

dO 


s t 

flock 

; lock FIFO 

move, w 

#$88# iud 1 


move, b 

<aO)+# dO 

; get the command byte 

swap 

dO 


move, iu 

#$8a# dO 


move. 1 

dO# iudc 

; byte ludc 8a iud 1 

rnovecc 

#(5-1)# d 1 

; lurite remaining 5 byte 
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■ntl: bsr 

_qdone 

; (presumes only one unit) 

bmi 

_hto 


move, b 

(aO)+»dO 

; next byte of command 

swap 

dO 


move, w 

#$8a>dO 


move. 1 

dOj wdcwd 1 


dbra 

d 1 > fmtl 


mt2: btst 

#5> gp.i p 

i wait (forever) for completion 

bne 

fmt2 


move, w 

udc<dO 

; get the status 

andi. uj 

#*OOFF, dO 

; only low byte is significant 

bra 

_hdone 

; cleanup after IRQ 

* 

_wd_setup — 

setup parameters 

for WD hard disk 


. globl _wd_setup 
wd_setup: 


st 

flock 



pea 

adapj>arms<pc) 



bsr 

_setdma 



addq 

#4, sp 



move, w 

#$88,wd1 



move. 1 

#$0015008a, wdcwd1 

i 

mode select command 15 wdc 8a wdl 

bsr 

_qdone 



bmi 

wd x 



move. 1 

#$0000008a, wdcwd1 



bsr 

_qd one 



bmi 

wd x 



move. 1 

#$0000008a, wdcwdl 



bsr 

__qdone 



bmi 

wd x 



move. 1 

#$0000008a,wdcwdl 



bsr 

_qdone 



bmi 

wd x 



move. 1 

#$0016008a, wdcwdl 

i 

22 bytes of parameters 

bsr 

_qd one 



bmi 

wd x 



move, w 

#$90, wd1 

i 

reset the DMA chip 

nop 




move, w 

#$190, wd1 



nop 




move, w 

#$01, wdc 

* 

1 sector of DMA (actually less) 

nop 




move, w 

#$18a,wd1 



nop 




move. 1 

#$00000100,wdcwd1 

i 

control byte 

move.w 

#$18a, dO 

i 

wdl value 
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bsr _endcmd 

wdx: bra _hdone 

*- parameters for 10MB WD 

adapjjarms: dc. b $00, $00, $00, $08, $00, $00, $00, $00, $00, $00 

dc. b $02,$00, $01,$02, $62, $02,$01,$00, $01, $00, $00, $02 


* LONG _dosahdxc( addr ) BYTE *addr; 

* do a simple (no DMA) ahdx command 

.globl _dosahdxc 

_dosahdxc: movea. 1 4(sp),a0 ,* 


pick up pointer to the command block 


c Ir. uj 

dO 



s t 

flock 

j 

lock FIFO 

move, w 

#*88, ind 1 



move, b 

<aO>+, dO' 

i 

get the command byte 

swap 

dO 



move, w 

#*8a,dO 



move. 1 

dO, uidcuid 1 
• 

i 

send it to the controller 

moveq 

#(5-1),dl 

9 

write remaining 5 bytes of command 

bsr 

_qdone 

i 

(presumes only one unit) 

bmi 

_h to 



move, b 

(aO)+, dO 

9 

next byte of command 

swap 

dO 



move, uj 

#$8a, dO 



move. 1 

dO, wdcwd 1 



dbra 

dl,dosac1 



bsr 

_qdone 

9 

wait for the command to complete 

bmi 

_h to 



move, uj 

wdc,dO 

9 

get the status 

and i. uj 

#$OOFF, dO 

i 

only low byte is significant 

bra 

_hdone 

9 

cleanup after IRQ 


* void _setdma(addr) 

* LONG addr; 

setdma: 



move, b 

7(sp), dmalow 


move, b 

6(sp),dmamid 


move, b 
rts 

5(sp),dmahi 

* 4 - 

* WORD 

^setss 

— set sector number and number of sectors 

■*— 

setss: 

move, w 

#*8a,ud1 
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b ST 

_qdone 

J 

wait for controller 

to take command 

bmi 

setsse 




move, b 

9(sp).dO 

i 

construct sector# 


move, b 

$e (sp)< d 1 

i 

□Red with devno 


lsl. b 

#5, dl 




or. b 

dl. dO 




swap 

dO 




move, w 

#$008a. dO 




move. 1 

dO.uidcwd1 

i 

write MSB sector# + 

d evno 

bsr 

_qdone 




bmi 

setsse 




move, b 

10(sp).dO 

i 

write MidSB sector# 


swap 

dO 




move, w 

#$008a, dO 




move. 1 

dO. uidcuid 1 




bsr 

_qdone 




bmi 

setsse 




move, b 

11< sp).dO 

i 

write LSB sector# 


swap 

dO 




move, w 

#$008a>dO 




move. 1 

dO. bidciud 1 




bsr 

_qdone 




bmi 

setsse 




move, w 

12< sp)>dO 

9 

write sector count 


swap 

dO 




move, w 

*$008a> dO 




move. 1 

dO> uidcwd 1 




bsr 

_qdone 




setsse: rts 





_hto: moveq 

#-l, dO 

9 

indicate timeout 


_hdone: move, w 

#$80. u»d 1 

9 

Landon's code seems 

to presume we 

nop 


9 

put this back to $80 

tst. w 

uidc 




c Ir 

flock 

9 

NOW* signal that we 

are done 

rts 





savssp: 

dc. 1 1 

9 

(saved SSP) 


tocount: 

dc. 1 1 

9 

timeout counter 


retrycnt: 

dc. ui 1 

9 

retry counter 


o_init: 

dc. 1 1 




o_bpb: 

dc. 1 1 




o_rw: 

dc. 1 1 




o_mediach: 

dc. 1 1 




i_sasi2: nop 





ifne loadable 





c 1 r. 1 

-<sp) 

9 

it's a b ird. . . 


move, w 

#$20.-(sp) 

9 

... it ' s a plane 

. . . 

trap 

#1 

9 

. . . noi its: 
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addq #6,sp 
move. 1 dO# savssp 

endc 


SOOUPERUSER! 

”Faster than a prefetched opcode. . . 



bsr 
tst. w 
bne 

_sasi_init i 

dO 

isase ; 


c Ir. 1 
or. 1 
or. 1 
move. 1 

dO 

drvbits# dO # 

#$4#dO 
dO# _drvb its 


clr. 1 
move. 1 
move. 1 
move. 1 

a5 # 

hdv^bpb <a5)# o_bpb 
hdv_rw(a5)i o_rw 
hdv_mediach <a5)*o_mediach 


move. 1 
move. 1 
move. 1 

#hbpb#hdv_bpb(a5) 

#hrwi hdv_rw(a5) 

#hmediach#hdv_mediach<a5) 

i sasq: 

nop 

# 

ifne 

loadable 
move. 1 

move, w 

trap 

addq 

savssp.-(sp > ; 

#$ 20 , -(sp) 

#1 

#61 sp 


endc 


kick c ontro11er 

punt — disk didn't respond correctly 
include C: bit in devVector 

zeropage ptr 

; save old vectors 

i install our new ones 

stupid assembler 

become a mild mannered user process 


if ne 

loadable 





move. ui 

# 0 ,-(sp) ; exit code 



move. 1 

#((i_sasi 2 -i_sasi)-*-$ 0100 ) 

,-(sp ) 

# save code# data# & basepage 


move, w 

#$31#-(sp) # terminate and 

stay resident 


trap 

#1 j should 

never come back. . . 

endc 

rts 




isase: 

lea 

nodmsg,aO 




bsr 

msg 



i f ne 

loadable 





move .1 

savssp, -<sp) » 

become 

a mild mannered user process 


move.w 

#$ 20 , -(sp) 




trap 

#1 




addq 

# 6 , sp 



endc 

move, w 

# 1 , -(sp ) 


# flag error status 


move, w 

#$4c,—(sp ) ; 

terminate 


trap 

#1 



msg: 

move. 1 

aO, -(sp) 




move, w 

#9,-(sp) ; 

print 

null terminated string 
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trap 
addq. 1 
rts 

#i 

#6. sp 


actur: 
acfmt: 

dc. b 
dc. b 

0/ 0> Oi 0) Qj 0 

4> 0> 0,0, 1,0 

; atari command 

i 

nodmsg: 

dc. b 

'No AHDX disk response. 

$0d. $0a< 0 


. even 




end 




test unit ready 
format disk 


CONFIDENTIAL 




